
vyjrjs^jsTjyjsrjsissss^^^ 






I 






i 




Jh,\ 



':^^r!:i'^ 




M^l 






NEWSLETT 





Editor 



Gordon Bentzen 
8 Odin Street, 
SUNNYBANK Qld. 4109 
C07) 345-5141 






ssssszssssszssssssssssssssssssssssssssssss 





a: 



gi 



;4 



I 

r 



9 



I 
I 



NATIONAL 0S9 USERS GROUP NEWSLETTER 



EDITOR : Bordon Bentzen 

HELPERS ! Bob Devries and Don Berrie 

SUPPORT : Brisbane 0S9 Level 2 Users Group 

Another newsletter hits the streetsi 

This here is the fifth one, and we ain't about to stop here. In this issue you'll find soie tore of Don 
Berrie's Disk Zapper, and also the explanation of the workings of the C prograwe froe last wnth. Also, it 
has been brought to ly attention that there's soie people in the national user group who are new to the world 
of 0S9. Hell, we'd like to provide soiething ot interest for everyone, so there's an section in this 
newsletter for those people too. 

He would like to see sote input fros other people in the group to add to our collection of wterial. One 
avenue open to us is a section dealing with problets of 0S9 users around Australia. He would like to print 
these probleffis in the newsletter, along with whatever answers we can provide. So get those problets on paper, 
and send thea to us. Your problei sight be concerning other people, toe, and the answers could help others, 

Ti sure that information about running 059 on other systess besides the Colour Cotputer would lake 
interesting reading for us all. How about it, all you other systea users? 

Hell here's the Noveaiber issue. I hope you all learn soiething froi it. 



ZAP (Part 2) 
mttttmmtmxxxxttmmmmmmmmmmmmmmmmm 

Disk Zapper Prograt for CoCo 0S9 Level II 

Copyright Ic) 198B by D.A. Berrie 
Released to the Public Doaain - March 1988. 

xtxxxtmxxxxxxtxtxtxxxxtxmxxxxxxxxtxtxtxxxxttxxmxmxxmxtxxttxtxtxx 

Prograi! Description : 

Zap is a sector based disk-zapper for use with CoCo 0S9 Level II. It is presented as Basic09 code and 
consequently needs access to the fia5ic09 lodule to execute. The prograa also needs access to the Gf)!2 todule 
in order to do the windowing and other screen lanipulations. To avoid conflicts with other windows which say 
already be active, the prograi uses the /H window descriptor. The prograi sets up a new window and then 
directs all output to it, thereby avoiding the necessity to run the process froi a window of a particular 
type to give the correct display. This dictates that both the /H descriptor, and one other free window 
descriptor need to be available to the prograe. 

The prograi has inbuilt help aessages and is easy to operate. A word of CAUTION. You can take perianent 
changes to your disk structure, including the possibility of laking a disk UNREADABLE. If you are unsure of 
what you are doing, do not use the "M" (for aodify) option frot the lain ienu-bar. 

For a description of the floppy disk setup under 0S9, read Chapter 5 of the Technical Reference Section of 
the Level II Hanual. 

Systei Requi resents : 

0S9 L2; 512K; grfint or windint lodule; basic09 (or runb for a packed version); gfx2; syscall; shell; 
display; xiode; and dir lodules. 
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Instructions : 

Type in the proqrara after starting BasicO? with 30K of Besory, You should end up with 18 separate procedures, 



zap 


helpness 


winclose 


ascii 


swclose 


heip(Be552 


calc 


header 


directory 


getdevnaffl 



sen 

change 
fflodify 
getsec 



winopen 
swopen 
closerr 
getdev 



The best way to run the prcgraai is to pack it into I-code and run it using RunB. After you have typed in the 
code, (and Saved it just in case) siaply type packt and the aodules will be fflerged, and saved in your 
execution directory under the naae zap. 

Program Usage : zap <CR> 

Disclaiaer : 

As the use of this proqraa is beyond the influence of the author, no responsibility can be accepted. However, 
the prograa does work, if used correctly, and has been subjected to extensive error testing- 
Help : 

Should you experience any problens, or have any questions about the operation of the progras, please feel 
free to contact ae on (07) 375-3236. 



Please feel free to distribute copies of this prograa. Cheers .... Don Berrie. 



PROCEDURE helpffless2 
ON ERROR 60TD 100 
Dm title:STRING[40] 
PARAH wpath:BYTE 
PARAM key:STRING[l] 
PRINT iwpath/ \; 
title="«ODIFY OPTION" 
RUN header{wpath, title) 
PRINT iwpath 
PRINT iwpath, 



PRINT #wpath," USE 

PRINT #wpath 

PRINT Iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iHpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 
GET iwpath, key 
END 
100 RUN closerr (wpath) 
END 



"ARROH keys for" 

cursor aoveuent" 

" 2-digit Hex. nuraber" 

" to change byte" 

"<H> to display" 

" this «enu" 

"<W> to write changes" 
to disk" 

"<Q> to return to" 

" aain senu" 

"Press Any Key to Continue' 



PROCEDURE aodify 

ON ERROR GOTO 100 

BASE 

PARAK wpath: BYTE 

PARA« secdat(256):BYTE 

PARAH iblkno: INTEGER 

PARAH PATHiBYTE 

PARAM NAME:STRIN6[4] 

PARAH flag: INTEGER 

DIH x,y,d,yl:INTE6ER 

DIH key:STRING[l] 

DIH Beter:REAL 

)t=10 \xl=60 \y=B \yl=B 

aeter=iblkno 

RUN winopen(wpath,x,y,xi,yi) 

IF flag=0 THEN 

PRINT iwpath," >» NO CHANGES HADE <«" 

PRINT iwpath, 

PRINT iwpath," Press Any Key to Continue" 

ELSE 

PRINT iwpath, "WRITE CHANGES TO DISK" 

PRINT iwpath, 

PRINT iwpath," ARE YOU SURE (Y/N) :"; 

ENDIF 
GET iwpath, key 
IF key=''Y" OR key="y« THEN 

OPEN iPATH,NAHE 

aeter=ffletert256 

SEEK iPATH,ffleter 



Page 3 



NATIONAL 0S9 USERS GROUP NEWSLETTER 



PUT tPATH.secdat 

CLOSE #PftTH 

ENDIF 
RUN Hinclo9e(wpath} 
RUN g{x2(wpath/CUR](Y%5,22) 
PRINT twpath/insert 32 blanks instead of this 

line"; 
END 
100 RUN closerriwpath) 
END 

PROCEDURE clQserr 
ON ERROR GOTO 100 
FfiRAM wpath:BYTE 
10 SHELL "display lb 23" 

GOTO 10 
100 END 

PROCEDURE calc 
BASE 

PARAH wpathrBYTE 
DIH title:STRING[40] 
DIM result, nufil,nu(a2: INTEGER 
Din opl,op2:STRING[6] 
DIM keypressrSTRINGEl] 
RUN gfx2(wpath/curoft") 
8 PRINT iwpath,CHR*{*OC) 
PRINT iwpath," "; 
title="HE)( CALCULATOR" 
RUN headerlwpath, title) 
PRINT iMpath, 

PRINT twpath/USE : 0-9 h-F + - t / <cr>" 
opl="" \op2=^^ 
result=0 
PRINT Iwpath, 
ON ERROR GOTO 10 
GOTO 11 

10 RUN gfx2(wpath,«curxy",A,5) 
PRINT iwpath, 't« ERROR" 
RUN gfx2(Npath,''beir) 

11 opl="" 
keypres5=''" 
REPEAT 

opl=opl+keypre55 

RUN qfx2(wpath,"curxy",6,5) 

PRINT Iwpath,- 

RUN gfx2(wpath,"curxy",15-LEN(opl),5) 

PRINT Iwpath, opl 

RUN qfx2(wpath, "color",!) 

GET Iwpath, keypress 

IF keypress="Q" OR keypress="q" THEN 

END 

ENDIF 
RUN gfx2(wpath^^'color",0) 
UNTIL ASC (keypress) =$2A OR ASC( keypress )=$2B 
OR ASCI keypress) =*2D OR ASC (keypress) =$2F 
RUN gfx2(wpath,"curxy",15-LEN(opl),5) 



RUN g{x2(wpath,"color",6) 

PRINT Iwpath, opl 

RUN gh2(wpath/color%0) 

opl="$"+opl 

nuffll=VfiL(opl) 

RUN gfx2(wpath,"curxy%16,6) 

PRINT Iwpath, keypress 

operator=SUBSTR (keypress, "+-/r) 

PRINT Iwpath, 

ON ERROR GOTO 12 

GOTO 13 

12 RUN gfx2(wpath,"curxy%6,7) 
PRINT Iwpath, "tU ERROR" 
RUN gfx2(wpath,"beir) 

13 op2="" 
keypres5='" 
REPEAT 

op2=op2+keypre55 

RUN gfx2(wpath,^curxy",6,7) 

PRINT Iwpath," 

RUN gfx2(wpath, "curxy", 15-LEN(op2) ,7) 

PRINT lwpath,op2 

RUN gfx2(wpath, "color", 1) 

GET Iwpath, keypress 

IF keypres5="fl- OR keypress="q" THEN 
END 
ENDIF 

RUN gfx2(wpath/color",0) 

UNTIL ASC(keypre5£)=*0D 
RUN gfx2(wpath,"curxy",15-LEN(op2),7) 
RUN gfx2(wpath,"color%6) 
PRINT Iwpath, op2 
RUN gfx2(wpath, "color", 0) 
op2="$"+op2 
nus2=VAL(op2) 
ON ERROR GOTO 100 
IF operator=l THEN 

re5uit=nu«l+nu«2 

ENDIF 
IF operator=2 THEN 

result=nuffll-nui2 

ENDIF 
IF operator=3 THEN 

re5ult=nufil/nuft2 

ENDIF 
IF operator=4 THEN 

result=nuflUnui2 

ENDIF 
PRINT Iwpath, 

PRINT Iwpath," RESULT : "; 
RUN gfx2(wpath,"revon") 
RUN gfx2(wpath, "color", 0,2) 
PRINT Iwpath, "$"; 
PRINT Iwpath USING "h4", result 
RUN gfx2(wpath, "color", 0,1) 
RUN gfx2(wpath,"revoff") 
PRINT Iwpath, 
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PRINT iwpath," Press Q to Quit" 
PRINT iwpath," Any Key to Continue" 
SET Iwpath, keypress 
IF i(eypre55="q" OR keypress='9' THEN 

RUN gfx2{Hpath,"ci]ron'') 

END 

ENDIF 
GOTO 8 
END 
100 RUN gfx2(wpath,''curon") 
RUN closerr(wpath) 
END 

PROCEDURE header 

PARAH wpath:BYTE 

PARAM title:STRIN6[40] 

RUN gfs2(wpath,"colDr%2,3) 

PRINT iwpath, title 

RUN gfj!2(«path,"color%0,D 

PROCEDURE getsec 
PARAH wpathrBYTE 
PARAK iaxblock:INTE&ER 
PARAK blkno:REAL 
DIH hbIkno:STRIN6[25] 
1 PRINT iwpath/SECTOR NUMBER (aax:*"; 
PRINT iwpath USIN6 "H4>",(iaxblock; 
PRINT Iwpath/) :"; 
INPUT iwpath," "jhblkno 
hblkno="*"+hblkno 
ON ERROR 60T0 1 
blkno=VAL(hblkno) 
IF blkno>«axblock OR blkno<0 THEN 

60T0 1 

ENDIF 
RUN Hinclose(Hpath) 
END 

PROCEDURE getdev 
BASE 

ON ERROR GOTO 10 
PARAH «path:BYTE 
PflRflH naffle:STRIN6[4] 
PARAH path, secdat (256): BYTE 
PARAK aaxblockjident: INTEGER 
5 INPUT iwpath, 'RBF Device Naae : ",naBe 
IF LEFT$(naBe,l)<>V" THEN 

naffle=''/'+naae 

ENDIF 
IF RI6HT$(naBe,l)<>"i" THEN 

naie=naffle+"6'' 

ENDIF 
OPEN ipath,nane 
SEEK ipath, 1 
BET ipath, secdat 

Baxblock=5ecdat(0)t25Af5ecdat(l)-l 
ident=5ecdat (14) t256+5ecdat (15) 



END 
10 PRINT iwpath, ■«* 
GOTO 5 



DEVICE NAME REQUIRED' 



PROCEDURE directory 
PARAM wpath:BYTE 
DIM winnai:STRING[52] 
DIH titie:STRIN5[40] 
DIH key:STRIN5[i] 
DIH pathiist:STRING[40] 
10 RUN gedevnais(wpath,winnafl) 
pathii5t="" 
ON ERROR GOTO 99 
PRINT iwpath," "; 
title="EXTENDED DIRECTORY" 
RUN headerlwpath, title) 
PRINT Iwpath, 
PRINT iwpath, 

INPUT iwpath, "Directory Pathlist : %pathlist 
IF pathli5t=''" THEN 

END 

ENDIF 
IF LEFTt(pathli5t,l)<>"/" THEN 

pathli5t=%'*+pathlist 

ENDIF 
SHELL "XMODE ■+winnaiB+" PA6=20 PAUSE- 
SHELL "DIR "+pathli5t+'' E >"+winnaB 
SHELL ")(MODE •+winnafi+' -PAUSE^ 
PRINT iwpath, "Press Any Key to Continue" 
GET Iwpath, key 
END 
99 PRINT Iwpath, CHR$($OC) 

PRINT iwpath, \ PRINT twpath, \ PRINT iwpath, 
PRINT Iwpath," tU "; ERR; " 

tw 

PRINT Iwpath, 
PRINT iwpath, 

PRINT iwpath," CHECK SYNTAX" 

PRINT iwpath, 

PRINT iwpath," Press Any Key to 
Continue" 

GET iwpath, key 
GOTO 10 

PROCEDURE gedevnafl 

TYPE regi5ters=cc,a,b,dp:BYTEi x,y,u: INTEGER 

DIM regs: registers 

PARAM wpath:BYTE 

PARAH HinnaB:STRING[32] 

DIM i: INTEGER 

DIM caIIcode:BYTE 

regs.a=ttpath 

regs.b=$0E 

regs.x=ADDR(winnaa} 

callcode=$8D 

RUN 5y5call(calicode,reg5) 

FOR i=l TO 32 
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EXITIF MID*(winnai8,i,l)>CHR$(128) THEN 
Minnaffi^"/" + LEFT$(winnafl,i-lJ + CHR$ 
(ASC(NID$( Hinnaffl,i,l))-128) 
ENDEXIT 

NEXT 1 



I t t t I t t t t t I I t t t M t t 

t ROGUE t 

t S F T H A R E REVIEW t 

t t t t t t t t t t t t t t t t t t t 

By NickoidS Harentes (CoCo3 Cosisercial Frograsaer) 

Oh how! Another new gase for ay CoCo3 and it's froi Epyx, the aob Mho did 'Koronis Rift" (Nhich I reviewed 
last i55ue). This has gotta be good! 

The packaging states "Rogue is so full of unpredictable lonsters, ever-changing lagic and hidden dangers that 
it's never the sasie gase twice" and "You could spend hundreds of hours playing it. ..and you still wouldn't 
uncover all its secrets". Sounds iiipressive so without further ado, I opened the package and began to delve 
inside. Once inside I extract a ianual and a disk, Opening the lanual I...aaH what the heck! Rather than beat 
around the bush, I'll tell you right now that this progran is absolute tiZtt. Whatever you do DON'T buy this 
prograa. I don't think that this prograis is even worth "pirating"! (great way to cut down software piracy). 

NEGATIVE POINTS: 

There are three versions of this prograa on the disk. One uses the 40 colusn text screen, the other the 80 
coiuin text screen. Both look dull. I find it hard to imagine an "B" is the hero, ":" the floor, '/■ a door, 
T as food and so on through 43 different sysbols. The third version of the progran had hope (HAD). I quote 
"hAKE&IJ - Opens a full screen graphics window that allows you to play Rogue with graphic iiages on screen for 
eany of the itests in the gaee. It looks good!!" unquote. Well, it was better, but still dull, especially in 
black and white (I thought I bought a COLOR conputer?). By the way, you need j12K to use this option. 
Wasteful isn't it. The pictures on the back of the packaging look great coapared to the actual screen. The 
prograiB is very hard to control in that there are so aany keys to control the "action". Sound. ..well, it 
sounds better with the voluae turned down. Yes, that good! The price of this package is extraordinarily high 
for a prograi of its calibre. At $49.95, Tandy are really pushing their luck. I could go on but this review 
15 only supposed to go for one page so I'll get on to the paragraph. 

POSITIVE POINTS: 

Ui. . .well. ..er.. .the packaging looks all right !? 

CLOSING COMMENTS: 

I hope Tandy sack the guy who passed this prograu through the Conputer Harketing division. Hore prograas like 
this and a lot of CoCo3 owners are going to duap their CoCo for a Coaaodore or Atari. It's also bad exposure 
for the OS-9 operating systea of which this prograa is running under. Luckily for the author, his naae isn't 
printed anywhere. I can understand why this prograa is claiaed to be "The college aainfraae classic'. In 
those days, coaputer gaaes and graphics were still quite archaic. I suppose this prograa could be classified 
as "a blast froa the past', it certainly is priaitive enough. As one CoCo guru said to ae after seeing it, 
"this one's a dud!". I agree. 
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STARTING OUT HITH 0S9 
Where Do I Start? 

Lots of people lust be asking thesselves that question Hhen they first look at 059, whether it be 
Level One or Level Tno. The answer, of course, is 'at the beginning'. Oh, sure, but just where is that? Hell, 
when you purchase 0S9, you get sone disks, and a fsanual, You should at least read the first chapter of the 
fflanual first! This will tell you how to start 059 running on your coaputer. If you are starting with Tandy's 
version of 059, it is supplied on 55 track, single sided disks. This coifibination will work on all disk drive 
coffibinations unless you have 80 track drives that only work on 80 tracks and are not 'switchable'. However 
lacking in space the 630 sector disk is, it is a good starting point. 

Get the systei going. Of course, you should use a BACKUP of the original disks. You can create the 
backup on a colour computer by using the Disk Basic coinand 'BACKUP'. Of course this will only work on the 
disks as supplied by Tandy in the original forsat, not with previously aodified systei disks. 

Try out sone coinands. The sost obvious one is the 'DIR' connand. It behaves iostly like the saie 
coBffland on Bost coaputers-it tells you what is on the disk. Well, not quite everything on the disk, but at 
least what is in your current 'DATA' directory. You see 0S9 can have iore than one of these directories, each 
with a different naie, and they can all contain different types of files if you like. However, back to the 
one we're looking at. When you start up 059 you will be looking at the 'ROOT DIRECTORY' of drive zero which 
is called '/DO'. That is the naie of the drive and the naae of the directory. In this directory you will have 
soiae files like 'startup' and '0S9Boot' and soie directory naies like 'CHDS'. 

How do you tell which is which you ask? Well the convention is to nane directories in UPPERCASE and 
files in lowercase, but if you forget, you can get the 'DIR' coflsand to tell you. Try typing 'DIR E'. What 
you get now is a bit aore inforaation about the files in the directory. Have a look at the one I have below. 

Directory of /dl 21:06:22 

Owner Last aodified Attributes Sector Bytecount Naie 






87/02/16 1648 


r-«r 


A 


69E3 0S9Boot 





87/02/16 1649 


d-ewrewr 


75 


5C0 CHDS 


c 


87/02/16 1654 


d-ewrewr 


7E 


140 SYS 





86/08/13 1447 


r-wr 


237 


CO startup 





86/10/22 1606 


r-wr 


239 


117 window.t385 





86/10/22 1605 


r-wr 


23C 


168 window.tSOs 





86/10/22 1628 


r-wr 


23F 


2B0 window. qlr4 



Here is what is displayed with the 'E' extension. First, the user nuaber, in this case 0, which is 
you, the superuser, then the date the file was last changed, and then to the aeat of our question, the 
attributes. There are eight attributes used. They are Directory, Non-sharable, Public execute. Public write. 
Public read. Owner Execute, Owner Write, and Owner read. The first attribute tells us whether the naae in the 
directory is in fact a directory naae. All the other attributes aust also be set, except for Non-share so 
that we can use the sub-directory to store files in. The next bit of inforaation is the sector nuaber where 
the file or directory starts and the next the length of the file. All nuabers are in HEXADECIMAL. The last is 
of course the nase of the file. 

Filenaies can be up to 29 characters long with 059, but reaeaber, you have to type those naaes when 

using the Copy coaaand etc. Filenaaes can have any characters except / I ! $ fc ♦ + . Filenaaes aust start 

with a letter not a nuaber. You can use the underscore and the period but no spaces. So the naae 
Fruit_and_veges is valid but Fruit and veqes is not. 

Executable files (read prograaaes) should be stored in the CHDS directory, and 059 looks for a 
directory called '/DO/CMDS' when it starts, so that it can find these files. You aay change the 'execution 
directory' to soae other directory once the systea has started. Siailarly, data files and 'shell scripts' can 
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be stored in any data directory. The iile called startup Bust be in the root directory for 0S9 to find it. 
What's in the startup file? Hell, here's a listing of the one froi the disk supplied Hith Level two 0S9. 

I Echo Helcoflie iessage 

echo t Helcoffle to OS-9 LEVEL 2 t 

echo t on the Color Coaputer 3 t 

t Lock shell and std utils into aeaory 

link shell 

I Start systeffl tiae froB keyboard 

setiae </l 

date t 

YouMl notice this one has soae coaaents (starting Hith an asterisk} in it so that we can see Hhat it 
does. The 'echo' coiaand (line 2) will print what is on the line after it to the screen. The link coaaand 
aakes sure you can't reaove the shell prografflie (and its aerged partners) froa aeaory. Then you get to input 
the tiae and date, the '</!' aeans to get data froa the keyboard. After you've input the date it is displayed 
back at you (just in case you got it wrong). 

When 0S9 Level two starts, it looks for two files, one is the shell script 'startup' and one is an 
executable file called 'autoex'. Level one just looks for 'startup'. The 'Autoex' file is useful. In fact no 
file called by that naae exists on your systea disks, but you can renaae any executable file in the CMOS 
directory to 'autoex' and it will autoaatically load and execute that file. 

Next tiae I'll discuss soae sore about this Operating Systea of ours and what you can do to custoaise 
it for your coaputer setup. 

Bob Devries, 



Nulti-Vue and the C Prograaaing language. (Part 2.) 

Because of lack of space, I was not able to put coaaents into the source code for the aouse driven 
pull-down aenu window prograaae. I will try to aake up for that this aonth. 

The first part of the source listing, starting on page 3 of the October issue, is a list of include 
files, which should be in the directory '/DO/DEFS'. The rest of the lines on that page are definitions, which 
are replaced in the source with their values (e.g. UPDATE is replaced by 3) by the 'C pre-processor. 

The left coluan on page 4 sets up a nuaber of structures with pre-defined values. These, as you can 
see, are the naaes in the pull-downs. The one with 'Application' in it is sten only rarely. If you are quick 
of eye, you can catch it as you use the 'clear' key to switch to and froa other windows. 

The function at the top of the right coluan on page 4 is the interrupt handler. That is, it receives 
the values sent by 059 when a keyboard interrupt (BREAK or CTRL BREAK) is sent, or when you push the aouse 
button. All it really does is store that value in a variable for us to use later. 

Now we ccae to aainO. Me set up a few local variables, set the systea to be unbuffered input and 
output (with the setbufO function) and turn off the text cursor. CurOff is a function in the CGFX library 
which should be in the directory /Dl/LIB. 

Next we set up a fraaed window on the existing device window (by using stdoutl. If the current window 
is the wrong type and we cannot coaplete this part, we return an error and exit. Next we set up the interrupt 
handler routine. We select the graphics cursor next. The code words used for this ire pre-defined in the 
header file called 'buffs.h'. A call to _ss_gip then sets up the type of aouse we want, and which joystick 
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port to look for it in. In this case I chose the right socket and used the hires adaptor. _ss_bou5 then tells 
the systeB ho» often to read the joystick and the tiieout for the button. No» we tell the 0S9 kernel what 
signal to send when the button is pressed. I chose 10, but any value above 3 will do. He then initialise the 
interrupt variable to 0, and go into the aain loop of the prograase. 

t4e again use the ssig function. Actually, the first one is probably superfluous. Ne check the sigcode 
variable. If it is we go to sleep until another interrupt coses along. If it equals 10 (MOUSSIG) then we 
reset it to and read the souse packet using a call to the _g5_»ou5 function, to see whether the pointer is 
on the control area of the window, that is, the bar at the top. If it is, then we use the switch and case 
construct of C with the value returned by _g5_B5el to give us the selected pulldown nusber. The nunber 
returned by senu select is defined in the data structures on page 3, as is the nuaber of the ites of the 
pulldown. Notice here, that the part fros the tiae that you press the button on the control bar till the tiae 
you push it again on a selected itea of the pulldown, is all handled by the Mindint I/O driver. Pushing the 
cursor arrow is also fully autoaatic because we chose to aake it FOLLOH the aouse. All that this prograaae 
does now is to use the values returned by Mindint to select the correct function in the rest of the 
prograaae. By the way, the left aost square on the control bar is actually provided by windint and returns 
the value HN_CLOS, which provides a way to quit. It does not perfora a pulldown. The prograaae now goes off 
to do the function which was selected froa the pulldown aenu. When it returns, it does it all again, until 
the variable 'quit' is TRUE (1). Then the graphics pointer is turned off, the signal handler is released, the 
te}{t cursor is restored to noraal, and noraal window is selected, and the prograaae ends. 

The rest of the functions are reasonably self-explanatory, and each function is called with the value 
of the pulldown itea as its paraieter. I hope this explanation fills the void I left last aonth. If any of 
you have probleas or suggestions, feel free to ring ae or drop ae a line, hy address is:- 

21 Virgo Street, 
Inala. Old. 4077 

and the phone nuaber is (07) 3727816. 

Regards, Bob Devries. 
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NATIONAL 089 USER GROUP NEWSLETTER 

R61 Patch ! Puts 0S9 into R6I Bcule Hhen yu boot ap. 

Tlis patch Mill eliiinate the need to call the 'lontype' couaAd froi the startup file. It is especially 
useful for those Mho have done the lodification to boot straight isto the 81 colusn screen on startup. It Hill 
produce the correct colours iuediately and not wait until the lontype conand is issued. There is one 'sotcha' 
Hith this patch, any future lontype conands Hill not produce anything else other than R6I. If this presents no 
probleis, patch aHay. You can use the folloMing shell script to lake life easier. But first, the folIONing Mdulcs 
should be in leiory or in the execution directory. 

Echo 

Load 

HodPatch 

Save 

Attr 

Unlink 



'1 

echo patching VBGInt 

Bodpatch -s <VfiGInt_lfQ;i 

echo saving new VDGInt 

save VDGInt.io 

echo changing attributes... 

attr VDGInt.io e pe -a 

echo patching GrfBrv 

BOdpatch -s (GrfBrvJIod 

echo saving new GrfBrv 

save GrfBrv 

echo changing attributes 

attr GrfBrv e pe -a 

echo finished 

That Has the first file. You Hill notice that in line 2 and 8 the iodpatch utility is called Hith input 
redirected froa another file. These files are is as follons:* 

f VBGInt Jlod f 

1 VBGInt 
c 9115 26 2f 

V 

f GrfBrv.Hod f 

1 GrfBrv 
c 08B1 26 2ff 

V 



Ny thanks to Bon Berrie for the code for this one, 

Regards, 

Bob Bevries. 
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